home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Online / InetDial / AREXX / inet_dial_quit.awebrx < prev    next >
Encoding:
Text File  |  2000-07-23  |  793 b   |  28 lines
  1. /*rx connect prog */
  2.  
  3. address command
  4. 'delete ram:mdr_internet_server_not_needed'
  5. 'echo >ram:mdr_internet_server_required' '"QUIT"'
  6. 'echo >ram:mdr_aweb_input_status.html' '"<HTML><TITLE>onlineinfo</TITLE><BODY BGCOLOR=BEIGE><BR><FONT COLOR=RED SIZE=+1><I><B>MDR <FONT COLOR=black>SYSTEM CLOSING DOWN - <BLINK> W A I T </BLINK></B></I></BODY></HTML>"'
  7.  
  8. ports = SHOW('P')
  9. PARSE VAR ports dummy 'AWEB.' portnr .
  10. ADDRESS VALUE 'AWEB.' || portnr
  11. OPTIONS RESULTS
  12.  
  13. SAY 'AWEB PORT NUMBER =' portnr
  14.  
  15. IF (portnr >0) THEN DO
  16.    'GET ACTIVEPORT'
  17.    ADDRESS VALUE RESULT
  18.    i=1
  19.    'GET URL var url'
  20.    IF URL='file://localhost/ram:mdr_aweb_input_status.html' then i=2
  21.    
  22.    IF i=1 THEN 'OPEN URL file://localhost/ram:mdr_aweb_input_status.html RELOAD'
  23.    IF i=2 THEN 'RELOAD'
  24.  
  25.    'SCREENTOFRONT'
  26. END
  27. EXIT
  28.